home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Atari Compendium
/
The Atari Compendium (Toad Computers) (1994).iso
/
files
/
umich
/
tex
/
td187src.lzh
/
MTPOPUPS.D
< prev
next >
Wrap
Text File
|
1991-06-08
|
2KB
|
41 lines
DEFINITION MODULE mtPopups;
FROM SYSTEM IMPORT ADDRESS;
FROM MagicSys IMPORT Byte, ByteSet,
sWORD, sINTEGER, sCARDINAL, sBITSET,
lWORD, lINTEGER, lCARDINAL, lBITSET;
(* ALLE Menus können auch über die Tastatur bedient werden:
*
* RETURN / ENTER Selektierten Eintrag bestätigen, Menü beenden
* UNDO Menü abbrechen bzw. zurück zum Hauptmenü
* Cursor hoch Eintrag über aktuellem Eintrag selektieren
* Cursor runter Eintrag unter aktuellem Eintrag selektieren
*)
PROCEDURE PopupMenu (menu: ADDRESS; title: ARRAY OF CHAR): sINTEGER;
(* Macht aus einer Resource-Menuzeile ein Popupmenu. Dropdown-Menüs werden
* als Submenüs dargestellt. Soll ein Menu-Title kein Dropdown erhalten,
* so muß dieser mit dem EXIT-Flag versehen werden. Pro SubMenü dürfen
* maximal 50 Einträge verwendet werden. Die Prozedur returniert die
* Objektnummer des selektierten Eintrags.
*
* menu = Adresse der Menuzeilen-Resource
* title = Titelzeile für das Menü. Submenüs bekommen automatisch
* den Menütitel als Titelzeile verpasst.
*)
PROCEDURE StringPopup (VAR string: ARRAY OF CHAR; title: ARRAY OF CHAR): sINTEGER;
(* Generiert Popupmenü aus einem String. Keine Submenüs möglich! Die
* einzelnen Einträge müssen durch ein | getrennt sein:
*
* " Eintrag 1| Eintrag 2| Eintrag 3"
*
* Maximal 50 Einträge möglich.
*)
END mtPopups.